#!/bin/awk -f

BEGIN{
	i=0;
	a=0;
	c=0;
	d=0;
	f=0;
	FS="[,]";
}
{
	a=$2+a;
	c=$3+c;
	da[i]=$2
	ta[i]=$3
	i++;
}
END{
	b=a/i;
	d=c/i;
	for(j=0;j<i;j++){
	    f=(da[j]-b)*(ta[j]-d)
	    f+=
}
cc=f/(i-1)
print "数学平均分为"b "\n语文平均分为"d "\n协方差为"cc
}
